home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / libs / rexmooslib.lha / MOOS / ARexx / dos / Makedir < prev    next >
Text File  |  1997-01-20  |  259b  |  22 lines
  1. /*
  2.  * 'dos/Makedir'()
  3.  *
  4.  * $(C): (1997, Rocco Coluccelli, Bologna)
  5.  * $VER: dos/Makedir 1.00 (19.Jan.1997)
  6.  */
  7.  
  8. SIGNAL ON error
  9. CALL CLOSE(STDOUT)
  10.  
  11. ADDRESS COMMAND
  12.  
  13. DO i = 1 FOR ARG()
  14.     IF ARG(i) ~= '' THEN 'Makedir >NIL:' ARG(i)
  15. END
  16.  
  17. EXIT 1
  18.  
  19.  
  20. error:
  21.     EXIT 0
  22.